home *** CD-ROM | disk | FTP | other *** search
/ Directorty Opus 5 - Magellan 2 / Opus 5 - Magellan 2.iso / Extras / DLGoodies / cdrom.dopus5 < prev    next >
Text File  |  1996-08-29  |  706b  |  38 lines
  1. /*
  2.  *  Mount CD-Rom and show contents in a new lister.
  3.  *  V1.0 (29.8.96) by David Lübbren.
  4.  *
  5.  *  Features:
  6.  *    - Checks if CD-Rom is already mounted.
  7.  *    - Disables Window requester.
  8.  *
  9.  *  Call: Arexx Dopus5:Arexx/cdrom.dopus5 {Qp}
  10.  */
  11.  
  12. device = 'zd1:'
  13. mountcommand = 'Mount zd1: from Devs:Mountlist.zd1'
  14.  
  15. OPTIONS RESULTS
  16.  
  17. PARSE ARG dopusport
  18. IF dopusport ~= "" THEN ADDRESS VALUE dopusport
  19. ELSE DO
  20.   SAY "No DOpus running !"
  21.   EXIT 5
  22. END
  23.  
  24.  
  25. PRAGMA('Window', 'Null')
  26.  
  27. IF ~EXISTS(device) THEN DO
  28.   ADDRESS COMMAND mountcommand
  29.   CALL DELAY(150)
  30.   IF ~EXISTS(device) THEN DO
  31.     dopus request '"Unable to mount' device '" Ok'
  32.     EXIT 20
  33.   END
  34. END
  35.  
  36. PRAGMA('Window')
  37. lister new "230/200/100/260" device
  38.